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| 
MODULE WTATTR ( LANGUAGE ( BLISS32) , 
IDENT = *V04-000' 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


® 

is 

® 

® 

® 

0 SUCH LICENSE AND WITH THE ®* 

i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
® 

® 

*® 

® 

® 

® 

* 


; 7 CORPORATION. 
® 
0 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
° PTTITITILILILL LLL ITLL LILI T ili liliiitiiiiiiiiiiiiitTit 
008 
003 : 
003 ! FACILITY: MTAACP 
003 : 
003 ! ABSTRACT: 
Ope This module handles the writing of attributes on a create 
005 i ENVIRONMENT : 
0039 i STARLET operating system, including privileged system services 


' 
' 
and internal exec routines. 
' 


! AUTHOR: D. H. GILLESPIE, CREATION DATE: 2-JUN-77 
i MODIFIED BY: 


v03-002 LMP0221 L. Mark Pilant, 12-Apr-1984 12:11 
gnpoee UCese OUUEC to ORBSL_OWNER and UCBSW_VPROT to 


® 


: 
| 


vO3-002 MMD0278 Meg Dumont 23-Mar-1984 10:09 
hange the processing of the a cessibility character fields 
n the HDR1 Label to call the installation 
specific accessibility routine. The return from this 
routine determines the users access to the file. 
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WIATTR 1Rese p-1984 r 96:73 :3¢ AX-11 Le 


42 p 
04-000 14-Sep-19 MTAACP i aoe 4§ 


$ 8 0038 1! Fix long file name support such that for wee version ; 
3 9 059 1! volumes it converts the exentsion Longeh ‘ 
; of bey } ASCII chars before writing it to the label. ; 
3 6 006¢ | V03-001 MMD0156 Neg Dunont 26-Apr-1983 9:16 | : 
3; § 0065 1! Add support ret in aeeerenee qualifier. Add support for long ‘ 
; & 0064 1! le name in WANSINA by spt ities the long name between : 
; $ B29? } the HDR1 FILE” 1D one the DR4 Lables. : 
: «67 608? 1 i v02-016 DMWw00080 David Michael Walp 22-Mar-1982 | : 
: re 493 } Added check for variable records greater then 9995 : 
: 70 0090 1/ v02=015 DMwW00074 David Michael Walp 5-Feb-1982 : 
; 4! 8053 : } Changed StatBlk to no-o ; 
Sea 0078 1} V02=014 DMW00066 David sas Walp 8-Jan-1982 : 
3 a Bere : Added HDR1 access character support ° 
: 76 0076 1: v02-013 DMW00061 David Michael Wala 7=Dec-1981 ; 
3 a4 oth : Rename TRANSLATION_TABLE to ANSI_A_BAD ‘ 
: 79 0079 1: v02-012 DMWO 0051 David Michael Walp 10-Nov-1981 ; 
2; a 0080 1! yhange sd ry to CASE, return length of ASCNAME : 
; Hy 49 ' just a g) : 
cc 0083 1} vO2-011 DMW00046 David Michael Walp 28-0c t-1981 : 
; Se Bone ; } Added ANSI ‘‘a'’ character support for file name, reformat : 
: 86 0086 1 | w02-010 DMw00042 David Michael walp 2-0c t-1981 ; 
3 4 se $4 ' Added support binary zero input dates : 
: 89 0089 1: v02-009 DMw00029 David Michael Walp ious; -1980 : 
; is BRae : Added stream file support and removed V2.0 HDR2 temp support ‘ 
: 92 0092 1 v02-008 ane David Michael Walp 11-Nov-1980 : 
,- 0093 1! New BLISS compiler Agrhe declaration changed from 3 
> 94 0094 1 BBLOCK to BLOCK. 6 mpi Ler, used to give a longword ; 
; on? : with a declartion of “BBL ck C1)". : 
et 9097 1 | V02-007 REFORMAT Maria del C. Nasr 30-Jun-1980 ; 
: 99 0099 1! vO2-006 MCNOO1S Maria del C. 10-Jun-1980 F 
: 100 0100 1! te form control attr louts os SADR2 too, and clean 3 
3 +2 p19) ! with Ban attributes of HDR3. ; 
: 108 O108 1 i A0005 MCNO008 aria del C. 22-Feb-1980 16:36 ; 
3 H+ Hi : Temporary pale "ot RMS sticthotes in HDR2 ‘ 
; 106 0106 1! A0004 McCN0005 ast § sr 05-Nov-1979 =11:30 : 
3 34 4 ! Eliminate Cveesv" INteHe "aR switch : 
: 109 $109 1 | A0003 = MCNO003 Maria del C. Nasr 16-Oct-1979 14:28 | : 
: 110 110 1! Add HDR3 processing F 
s 91 117 17! : 
; 11g i's 1 !ee 3 
s 43 11 1 : 
3; 6116 0114 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; : 
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WBINDATE 

WBLOCKS2 

WEXPIREDT 
ATTR 


WRECAT : 
WRITE_ATTRIBUTE : 
EXTERNAL 


CURRENT_UCB 
HDR1 


EXTERNAL ROUTINE 
GET RECO 


MRS 
VFCHDR 
BLOCKS2; 


OBAL 
ANSI _NAME_SIZE 


REQUIRE "SRCS:MTADEF .B32'; 
FORWARD ROUTINE 
WANS INAME 


COMMON CALL NOVALUE, 
COMMON EALL NOVALUE, 


COMMON_CALL NOVALUE, 
COMMON- CALL NOVALUE; 


105; 


: ADDRESSING_MODE (ABSOLUTE): 


: WORD, 
: WORD ° 


("!52W") 
("!8XL") 


eee 


: SIGNED BYTE; 


1b-5¢ ” 
1 =Sep- 


19be %8:28:3) — EtaacecsneSutarte-e3e+] 


write ANSI ‘a’ filename 
write 64_bit date 

write block size 

write expiration date 
write record attributes 
write attributes, main 


address of UCB 
address of HDR1 Label 
address of HDR2 Label 
address of HDR3 Label 
address of HDR4 Label 
name block 


get current record tape is reading 
' change to hexadecimal 


maximum record Length 
Length of VFC header 
block size 
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GLOBAL ROUTINE WRITE_ATTRIBUTE : 


++ 


F 11 

16-Sep-1984 02:33: 

14-Sep-1984 9 20584 
COMMON_CALL NOVALUE = 


AX=11 BLiss-32_ V4.0-74 
MTAACP. SRC IWTATIR.B32; 


i FUNCTIONAL DESCRIPTION: 
i Thi 


S$ routine writes attributes into HDR1 and HDR2 


i CALLING SEQUENCE: 


WRITE_ATTRIBUTE () 


INPUT PARAMETERS: 
none 


IMPLICIT INPUTS: 
10 


PACKET = address of current 10 request packet 


OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 
BEGIN 
EXTERNAL REGISTER ! here so main expection 
COMMON_REG; ! handler can touch the VCB 
EXTERNAL 
ATR_TABLE : BLOCKVECTOR CATRSC_MAX_CODE, 1], ! attribute table 
IO_PACKET : R LOCK ' addr of current IRP 
ANSI_A_GOOD : VECTOR C 256, BYTE J; i translation table 


MACRO EQLLEN 
MACRO MAX 


LOCA 


= 0, 24, 8, 02; 
= 0, 0, e 0%; 


L 

ACCESS_ INPUT ! set for whether access cahr specified 
HAR : VECTOR (4,BYTE), ! accessibility char to write to label 
sAeEaT RECORD, ! Record tape drive is reading 
CHAR_INPUT : BYTE ' Access char from ATR block 

DESCR : VECTOR (2,LONG), ' descriptor of output for FAO 

MVL : REF BBLOCK, ' MVL of volume 

PACKET : REF BBLOCK, } {0 packet address 

ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH ! addr of desc vector 

ORB : REF BBLOCK, } Object’s rights block address 


' number of bits set 
! pointer to attribute 
' attribute code 


! test for table length 
IF .CODE GTRU ATRSC_MAX_CODE THEN ERR_EXIT(SS$_BADATTRIB); 


11 | 

WTATTR 18-Se -1984 233: AX-11 Bliss-32 V4.0-74 P 5) 
04-000 1eageen18Bs 93:28:84 = HAA Ok sega Fe YR O5bh9 O98 125 | 

03 39 COUNT; ! number of char in attribute 

1 35 

11 9 PACKET = .10 PACKET; 

3 94 ABD = ,BBCOCKC.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 

1 95 MRS = F ! default record size 

14 %6 BLOCKSZ = 512; i default record size 

15 9 VF CHDR = 0; ! initialize VFC header count 

16 298 ANSI_NAME SIZE = =i; i no ANSI file name 

V7 i ACCESS_INPUT = MTASK_NOCHAR; i Assume no access char passed 

hy 

ae 8 pa, 

§ 0604 ! set up a pointer to the attribute and set up the size and 

t See ! fing the attribute code 

5 0607 P = et oe ABDSW_TEXT] + ABDC.1, ABDS$W_TEXTI; 

6 0608 COUNT = .ABD 5° ABD$W_COUNT]; 

2e7 0609 CODE = .(.P)<0, 8>; 
: 0610 Pp = .P +1; 
0 
; 
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' call the correct procedure 
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See ! check attribute Length 

$$ IF .ATR_TABLEC(.CODE-1) ,EQLLENJ 

7 THEN 

38 BEGIN 

39 IF .COUNT NEQU .ATR_TABLEC(.CODE=-1) ,MAX] 
34 THEN ERR_EXIT(SS$_BADATTRIB); 

tg ELSE 
24 BEGIN 
244 IF .COUNT GTRU .ATR_TABLEC(.CODE-1) ,MAX] 
45 THEN ERR_EXIT(SS$_BADATTRIB); 
rf] END; 

4 

48 

49 

50 
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sa: nate FROM 1 TO ATRSC_MAX_CODE OF 


totattatatcttatattaattutttttttate 


AAAI AINA AAAI BBB B&B BANNAN no ppopopononornorfnopfnornn 


Be Se Se Se Se Ge Se Se Se Se Se FF Se Se Fe Ge Fe Se Ge Ge Fe Se te Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Se Se Se Ge Se FFs Se OH S5 5 SFOs Oe Se Oe Se Os Se SH Sees es 


1 
3g 5 ATRSC_RECATIR : WRECATTR ( .P, .COUNT ); 
54 36 ATRSC—FILNAM : CHSMOVE ( . COUNT, .P, NMBLOCK ); 
55 3 ATRSC~FILTYP : CHSMOVE ( .COUNT, .P, NMBLOCK + 6 ); 
36 38 ATRSC-FILVER : CHSMOVE ( :COUNT. .P. NMBLOCK + 8 ): 
5 9 ATRSC_EXPDAT : WEXPIREDT ( <P, .COUNT ); 
58 0 ATRSC~BLOCKSIZE : WBLOCKSZ ( <P. : COUNT ): 
59 1 ATRSC~ASCNAME : WANSINAME ( <P. . COUNT ): 
60 : ATRSC~CREDATE : WBINDATE ( <P sCOUNT 
61 BBLOCKE.HOR1,HD1ST_CREATEDT)); 
6¢ 4 C ATRSC_EXPDATE J]: WBINDATE ( .P, . uN 
6 5 BBLOCKE.HOR1,HD1$ST_EXPIREDT)); 
64 5 C ATRSC_HDR1_ACC 1): BEGIN 


| 
woes ae ABDSC_ATTRIB TO .PACKETCIRPS$W_BCNT) - 1 DO 
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CHAR_INPUT = .ANSI_A_GOOD C .(.P)<0,8> J; 
git CESS_INPUT = MTASK_CHARVALID; 


! These are either read only attributes or unimplemented ones 


C ATRSC_HEADER 
ATRSC_USERLABEL, 
ATRSC_ENDLBLAST, 
ATRS$C_UIC_RO J: ERR_EXIT ( SS$_BADATTRIB ); 


! The following are valid for DISK but not TAPE, so we will drop 
! them on the floor ( NO OP ) for device independence sake 

If these values are asked for during read attributes we will 

' 


: — them up 
! INRANGE statement is used for speed and code size sake 
& te 

2 

ATRSC_UCHA 


Call the accessibility system service to determine the accessibility char 
to write on the label. 

First keep the record that the UCB is reading. The accessibility 

routine can not move the tape from under us! Thus we will compare 

this to the field after the call and if the tape was moved we punt 

the operation. 


MVL = . CURRENT VCBEVCBSL_MVL 1; 
ORB = .CURRENT~UCBCUCBSL ~ORB); 
CURRENT RECORD™= KERNEL _CALL(GET_RECORD, .CURRENT_UCB); 


CHAR = SATACCESS(LBLHAA - 


SHOR 

ORBCORBSL_OWNER 

10N = eerie STDVER], 
= © e 

PEC = .ACCESS_INPUT, 

TASK_OUTHDR1) 3 


NEL_CALL(GET_RECORD, .CURRENT_UCB); 
RECORD Ned STAT 
_EXIT(SS$_TAPEPOSLOST) ; 
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Sep-1984 AX-11 Bi leg =-32 V4.0-74 P 7 
ifcdeo-1964 02:35:52 yARott OL fng-52 ¥4.0:7 ae 
! Write the char to the Label. 


HDRICHD1SB_FILACCESS] = .CHARCO]; 


! after both blocksize and maximum record size goer soytes have been 
i processed then determine the value of reclen in HDR 


IF .MRS EQLU 0 


aS (CHSMOVE (HD2$S_BLOCKLEN, HDR2CHD2$T_BLOCKLEN], HDR2CHD2$T_RECLEN))) 
BEGIN 


' count overhead for ANSI ‘'D' record 
IF .HDR2CHD2$B_RECFORMAT] EQL ‘'D' THEN MRS = .MRS + 4 + .VFCHDR; 
! FAO output descriptor 


DESCREO) = HD2$S_RECLEN; 
DESCR[1] = HORETAD $T RECLEN]: 
SYSSF AO(CVTS, 0, DESCR, 


! now check 
4 that the block size is valid 
! and that the record size is not St peer then the block size 
! and that variable records are not larger then can be supported ( RCW ) 
IF ( ‘ocrst LSSU 18 ) 
- ( we ed BLOCK $7 ) 
R ¢ MRS GTRU (9999 = 4) ) AND ( .HDR2 C HD2$B_RECFORMAT ] EQL 'D' )) 
THEN ERR “En TTtses RBADATTRIB) : 


END; 
-TITLE WTATTR 
- IDENT XV04~000\ 
-PSECT S$CODES,NOWRT,2 


57 SA 35 21 9000 P.AAB: ASCII \!SZwW\ : 
6° 00004 04 P.AAA: .LONG 4 : 

0 es 0° 00008 ADDRESS P.AAB 3 

4c 58 1 00¢ P.AAD: “ASCII \!8XL\ : 
4 305 4 010 P.AAC: 4 : 
0000000' 00014 ADDRESS P.AAD 3 


-PSECT SLOCKEDD1$,NOEXE,2 


0000 MRS -BLKB 

0002 VFCHDR: -BLKB 

9004 BLOCKSZ: BKB. 4 
ANSI NAME, SIZE 


0533 


83274 


SUTATIR 
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GET 
ATR~TABLE 
, ANSI_A_GOOD 
TACCESS 


SCMKRNL, SYS 


AX-11 Bliss-32 V4 
-PSECT SCODES,NOWRT,2 
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DSS ROM OF HO WOM ROW OED WATS UFR aoe = 
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238: 
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Be 18:08:59 


AX-11 Bliss-32_V 
MTAACP. SRC} a 


#3, WBINDATE 
36 

(P), RO 
ANS{_A_GOODCROJ 
#1, ACTESS_INPUT 


33 


CHAR_INPUT 


URRENT 
NT 


VCB), MVL 
UCB, 
ORB 


RO 


GET_RECORD 
#4, aNSYSSCMKRNL 
RO. CURRENT_RECORD 


I 
¢ AR_IRPUT, -(SP) 
L), -(SP) 


HDR 

#6, SYSSMTACCESS 
HA 

CURRENT_UCB 

e 


GET_RECORD 
#4, ~@ASYSSCMKRNL 
¢ RRENT RECORD, STATUS 


Bet od 
WTATTR.B32; 
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35 
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0699 


0701 


0734 


Pee Gee Se Ge Ge Se Se Ge Se Ge Se Se Ge Se Fe Ge Fe Ge Ge Ge Se Ge Se Fe Fe Fe Ge Be Se Se Be Se Be Se Be Se Se Fe Ge Be Se Se Be Se Be Se Ge Be Se Se Se Se Be Be Se 


8) 
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56 


1 


m1 
¥oe~000 per8ep=]88e 98:28i8F | HataAeOSheSuFar tn: o35¢ Pace 3} 
0000" CF 0000" CF 10 2 FD 1F3 CMPZ7v #0, #16, MR3, BLOCKSZ : 0735 
A OO1FC BGTRU ; 
2708 =F 0000' i gi A cHPY , #9995 ; 0736 
50 00006 CF 06 920 OVL ote. : 
44 BF 04 AQ 1 00 f CMPB Os «G4 (ROS, #68 : 
12 4 BNEQ  27$ ; 
BaF 20513 aes: Gd 188 : org? 


; Routine Size: 534 bytes, Routine Base: S$CODE$S + 0018 


PUPS EE BS BS EE EE 
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PAA 


co 
SSA Rw POS NOE UNIO Doo es 


CPEAARIGALPPIPINICLAPIMIPININIPIPINPININII A) tt ts tk kk kk kk kk kk dt 


N11 
1e=8ep-1984 19:46:54 


ROUTINE WEXPIREDT (PTER, COUNT) : NOVALUE = 
'o¢ 


FUNCTIONAL DESCRIPTION: 
This routine puts the expiration attribute in HDR1 


CALLING SEQUENCE: 
WEXPIREDT(ARG1 ,ARG2) 


INPUT PARAMETERS: 
ARG1 = address of pttr toutetedennry’ 
ARG2 = number of characters in attribute 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 

expiration date in HDR1 updated 
ROUTINE VALUE: 

none 
SIDE EFFECTS: 

none 


USER ERRORS: 


SS$_BADATTRIB = attribute length must equal 7 or illegal date 


BEGIN 
EXTERNAL 

ZERO_JDATE : VECTOR C 6, BYTE J;! zero Julian Date of *' 00000" 
EXTERNAL ROUTINE 

CONVDATE_R2J; ! convert date from reg to JULIAN(ANSI) 
LOCAL 

DATE : VECTOR (12, BYTE); ! work area for date with dashes 


IF (.¢(.PTER) EQL 0) AND (.(.PTER+4) EQL 0) 
THEN 


! if expiration is binary zero, then no date thus stuff zero date 
(CHSMOVE ( 6, ZERO_JDATE, BBLOCKC.HDR1, HDIST_EXPIREDT] )) 


ELSE 
BEGIN 


! now format DD-MMM-YYYY from DDOMMMYY 


AX-11 Bliss-3 
MTAACP.SRC JWT 


WIATTR 


2 
° 
S 


2 
e 
e 
' 
i 


4 a1$ 797 (DATE)<0, 16> = » (.PTER); 
: 41 798 (DATE + ¢)< , > = '='; 
; 418 799 (DATE + 3)<Q, 24> = ,(.PTER + 2); 
3; 419 0800 (DATE + 6)<0, 24> = '=19' 
3 rk Bas (DATE + 9)<O, 16> = .(.PTER + 5); 
; t5§ 0808 IF NOT CONVDATE_R2J(DATE, BBLOCKC.HDR 
s 6 0804 THEN 
; 4624 0805 ERR_EXIT(SS$_BADATTRIB); 
: 425 0806 
; 426 0807 END; 
3; 427 0808 1 END; 
007C 00000 wEx 
5E OC C2 00002 
56 04 AC DO 00005 
66 D5 00009 
12 ig 00008 
04 A6 D5 00000 
0D is B0018 
50 0000G CF DO 00 1 
2F = =A0 0000G CF 06 28 0001 
04 OOO1E 
6F 66 BO OOOT1F 1$: 
02 AE 2D 90 00022 
03 AE 18 00 02 A6 FO 00026 
09 AE OF BOOED 
0039312D OF 01 FB 00030 
51 05 Aé6 D0 00037 
60 51 BO 00038 
06 AE 18 00 51 FO 0003E 
7E 0000G CF 2F C1 Bee. 
04 AE 9F OO04A 
0000G CF 02 FB 0004D 
02 50 € B03 
34 BF 0005 
04 00057 2$: 
; Routine Size: 88 bytes, Routine Base: S$CODE$S + 022E 


-1984 02:33: AX-11 Bliss-32_V4.0-742 
p-19 4 ? 4es84 LATAACP-SRE WIATTR.B32;1 


day 
dash 
month 
century 
year 


1, HD1$T_EXPIREDTJ) 


.EXTRN ZERO_JDATE, CONVDATE_R2J 
PIREDT: 

-WORD Save R2,R3,R4,R5,R6 

SUBL2 #12, SP 

MOVL  PTER, R6 

TSTL (RO) 

BNEQ = '1$ 

TSTL  4(R6) 

BNEQ 1$ 

MOVL. HDR1, RO 

Moves #6, ZERO_JDATE, 47(RO) 


+ 
CALLS #1, a#*x0039312D 
MOVL 5(R6), R1 


MOVW R1, (RO) 

INSV. R1. #0, #24, DATE+6 
ADDL3 #47, HORI, -(SP) 
PUSHAB DAT 

CALLS #2, CONVDATE_R2J 
BLBS RO. 2$ 

CHMU = #52 

RET 
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12 
1h-$6 -1984 233: AX-11 Bliss- 
127808- 1382 9 23°86 YRTAACP’SRe W 
ROUTINE WRECATTR (PTER, COUNT) : COMMON_CALL NOVALUE = 
144 


' 
FUNCTIONAL DESCRIPTION: 
This routine records user attributes in HDR2 and HDR3 


AWG 
mr 
“4 
a< 
za 
. _ 
wo 
wi 
rO™N 
oe 
=r 


CALLING SEQUENCE: 
WRECATTR(ARG1 ,ARG2) 


INPUT PARAMETERS: 
ARG] = address of attribute 
ARG2 - size of attribute 


IMPLICIT INPUTS: 
none 


IMPLICIT OUTPUTS: 
HDR2 and HDR3 updated to reflect user attributes 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

: OUTPUT PARAMETERS: 
none 
i 

i 

i 

i 

i 

i 

i 

' 

i 

— 

BEGIN 


EXTERNAL REGISTER 
COMMON s ! Set up reference to the VCB 


LITERAL 
RECTYPE_LEN = 8, 
RECATTR_LEN = 6; 

N 

RECTYPE_ANSI = UPLIT BYTE(*UFDVDDDS') : VECTOR C, BYTE), 
RECTYPE_FILE11 = UPLIT BYTE(O,1,2,3,4,5,6,0) : VECTOR C, BYTE), 
RECATTR_ASCI = UPLIT BYTE('MA MA ‘) : VECTOR C, BYTEI, 
RECATTR_FILE11 = UPLIT BYTECO, 1, 2, 8, 9, 10) VECTOR C, BYTE); 

LOCAL 
errareures : VECTOR CCHSALLOCATION(32)], store good attributes 


for suppert of HDR2 attributes 
general descri 


DESCR : VECTOR (2), iptor 
count of attributes to transfer 


PARTIAL_CNT; 


MAP 
PTER : REF BBLOCK; 


! capture valid attributes only 


address of attribute 


ae IECRSHOM QEESHT Wad dena 


lis V4.0-74 
-0 14-Sep-1984 MTAACP.SRCIWTATIR 83309 
: 486 0866 CHSCOPY(.COUNT, .PTER, 0, 32, ATTRIBUTES); 
; tt bes ! is record type present 
: 490 876 IF .COUNT GEQU (SBYTEOFFSET(FATSB_RTYPE) + 1) 
> 491 71 THEN 
; 49 if EGIN 
: 49 087 ABR CHD2$B_RECFORMAT) = %C'u'; 
: 4946 0874 
: 495 0875 DECR I FROM RECTYPE_LEN - 1 TO 0 DO 
3 re Bas ? BEGIN 
: 498 O84 4 IF .RECTYPE_FILE11C.1] EQL .PTERCFATSB_RTYPE) 
: 300 0880 4 HDR2CHD2$B_RECFORMAT] = .RECTYPE_ANSIC.1); 
: 20¢ 882 3 END; 
: 50 0883 3 
: 504 0884 IF .HDR2CHD2$B_RECFORMAT] EQLU ‘v" 
> 505 0885 3 THEN 
: 506 0886 4 BEGIN 
: 507 0887 4 HDR2CHD2$B_RECFORMAT) = 'D'; 
: 508 0888 4 
; 309 0889 5 IF _.COUNT GEQU eer eee + 1) 
: 511 0891 4 VFCHDR = .PTERCFATSB_VFCSIZEJ t get VE VEC header size 
: 312 0892 4 ELSE 
; 0893 4 VFCHDR = 2; pb Mid ones set default value 
> 514 0894 4 
: 515 0895 3 END; 
: 516 0896 
s D7 0897 3 ! If this tape is being crested for interchange do not allow VMS 
3 gig pee i specific values in this 
; 320 0900 IF CURRENT _VCBCVCBSV_INTCHG] AND .HDR2CHD2$B_RECFORMAT] EQLU ‘U’ 
: 322 090 3 ERR_EXIT(SS$_BADATTRIB); 
: 52 090 
: 526 0904 END; 
; 325 0905 
§ 2 $ Bang ! if form control character is present 
; 528 908 IF .COUNT GEQU (SBYTEOFFSET(FATSB_RATTRIB) + 1) 
; Sav 909 THEN 
OBR pee 
; 33 912 INCR I FROM 0 TO RECATTR_LEN - 1 DO 
; 53 O34 IF .RECATTR_FILE11C.1] EQLU .PTERCFATSB_RATTRIBI 
; 336 0916 HDR2CHD2$B_FORMCNTRL] = .RECATTR_ASCIC.1); 
: 538 91 END; 
3; 539 O39 : ‘ ; 
3 en? 331 ! copy record attributes into HDR3 in hexadecimal format... 
: 30) $9 2 PARTIAL_CNT = .COUNT - 1; 
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som 
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uw 
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; te 3 i IF .PARTIAL_CNT GTR 28 
te 3 3 on semtwes tet 28 
SB ot eke a ace 
Py = 6; 
: 549 9 § | 
: 32 03 9 INCR_I FROM 0 TO .PARTIAL_CNT BY 4 DO 
: 55 9 DESCR(1] = HDR3CHD3$T_RECATR] + (.1*2); 
; 228 9 4 SYSSFAO(CVTB, 0, DESCR, . (ATTRIBUTES +°.1)); | 
Bo Be we | 
Z 228 23 $ ' calculate maximum record size 
3 338 0938 MRS = . (ATTRIBUTES + SBYTEOFFSET(FATSW_RSIZE))<0, 16>; 
: 266 0940 IF .MRS EQL 0 | 
: 561 0941 THEN 
; 26¢ 094 MRS = .(ATTRIBUTES + SBYTEOFFSET(FATSW_MAXREC))<0, 16>; | 
; 208 Soe ! Copy attributes to HDR2 too, for temporary support 
; 566 0946 eis 
; 567 947 2: 
: 568 0948 2: IF NOT .x 
; 569 0949 2: THEN 
: 570 0950 2! BEGIN 
; 271 0951 PARTIAL_CNT = .COUNT; 
; ng $984 i IF .PARTIAL_CNT GTRU 20 
: 376 $988 PARTIAL_CNT = 20 
: 576 0956 2 | oo ees 
: 577 0957 2 | CHSCOPY(.PARTIAL_CNT, .PTER, 0, HD2$S_RECATR1, HDR2CHD2$T_RECATR1)); 
; 578 0958 2: PARTIAL_CNT = .COUNT = .P {_CNT; 
: 579 0959 2 CHSCOPYT.PARTIAL_CNT, .PTER + HO2SS_RECATR1, 0, HD2$S_RECATR2, 
; 580 0960 2 HDR2CHD2$T_RECATR21); 
: 581 0961 é i ND; 
; 382 096¢ 
; 3 0963 1 END; | 
53 44 46 44 56 44 46 55 00286 P.AAE: .ASCII \UFDVDDDS\ : 
00 06 05 04 03 02 01 00 00 BE P.AAF: .BYTE 0, 1, 2, 3, 4. 5, 6, 0 ; | 
0 41 4D 2 41 4D 00296 P.AAG: <ASCII \MA MA \ : 
A 09 08 O2 01 00 0029C P:AAH: ‘BYTE 0, 1, 2, 8, 9, 10 : | 
RECTYPE_ANSI= P.AAE 
RECTYPE-FILE11= P-AAF | 
RECATTR-ASCI= P- AAG 
RECATTR7FILE11= P.AAH 


OOFC 00000 WRECATTR: 
-WORD Save R2,R3,R4,R5,R6,R7 : seed 

| 
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12$: 


w$2p-1986 13:40:57 EAtaace sme SuTArYn=03071 


Wore * 


PTER, R6 
COUNT, (R6), #0, #32, ATTRIBUTES 


g 

RECTYPE_FILE11C13, (R6) 
RECT YPE_ANSICIJ, (R1) 
(R1), #86 

$ 


#68, (R1) 
OUNT, #16 


13(R6), VF CHDR 

#2, VECHDR 

a 44 (CURRENT _VCB) , 5$ 
(Ri), # 


#52 

COUNT, #2 

8$ 

PTER, R2 
RECATTR_FILETICII, 1(R2) 


HDR2, RI 

R CATR ASCICIJ, 36(R1) 
#1, COUNT, PARTIAL _CNT 
PARTIAL_CNT, #2 


#28, PARTIAL_CNT 
#8, DESCR 

1 

@HDR3CIJ, DESCR+4 


#4, DESCR+4 
ATTRIBUTESLI) 


cyte 

#4, @#SYSSFAO 
PARTIAL_CNT, #4, I, 10% 
ATTRIBUTES+2, MRS 


ATTRIBUTES+16, MRS 


‘Bh 


; Routine Size: 


205 bytes, 


Routine Base: 


SCODES + O2A2 
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16-Sep-1984 02:33: AX-11 Bliss-32 V4.0-74 Page 19 
ereeah BBs MS:2e:8F PANEL Bk issu 3 We -Oo04e age 5) 
ROUTINE WBLOCKSZ (ADDR, LENGTH) : COMMON_CALL NOVALUE = 
| 


tee 


i FUNCTIONAL DESCRIPTION: 
This routine writes the block size 


CALLING SEQUENCE: 
WBLOCKSZ (ARG1 ,ARG2) 


INPUT PARAMETERS: 
ARG] = address of attribute 
ARG2 = Length of attribute 


—_ 
> 
— 
— 
pe) 


SESEESSSSENSS Z 


98 ' 
599 ! IMPLICIT INPUTS: 
et none 
O06 OUTPUT PARAMETERS: 
60 none 
604 
605 IMPLICIT OUTPUTS: 
one block size written to HDR2 
608 ROUTINE VALUE: 
609 none 


Ok kt ee wk ss as = 4 ts  — 3 1 AO] 
So 3 
o 
Wn co 
RIPPIN INPIPIMPDNINIPIPIPIPIPIAIAPIPIPINI|IIN IAI) a rd dn nd dd od 


Bee Be Se Se Ge Se Ge Se Be Se Ge Se Se Fe Ge Fe Se Ge Ge Fe Se Ge Fe Ge Ge Ge Fs Ge Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ee Se Fe Se Sees es 


610 

611 SIDE EFFECTS: 

618 none 

614 USER ERRORS: 

615 SS$_BADATTRIB = block size attribute neq to 2 

618 SS$_NOTINTBLSZ - block size on interchange tape not <=2048 
618 

ah BEGIN 

631 EXTERNAL REGISTER 

° é BB COMMON 3 ! Set up reference to the VCB 
634 00 MAP 

¢ 5 sie ADDR : REF VECTOR C, BYTE); ! address of attribute 
6 § B08 LOCAL 

6 : et DESCR : VECTOR (2); 

ox st BLOCKSZ = .(.ADDR)<0, 16>; 

O36 011 ! If this tape is being created for interchange do not allow VMS 
6 Big ! specific values in this field 

° 5 big IF .CURRENT_VCBCVCBSV_INTCHG) 

o3 818 IF 2BLOCKS? GTRU 2048 

673 O18 ERR_EXIT (SS$_NOTINTBLSZ); 

641 20 DESCRCO) = HD2$S_BLOCKLEN; 


2 


WIATTR 1b-5¢ =3007 138% 96:73 3 AX-11 Bliss-32 V4.0-74 Page (39 


14-Sep-1 MTAACP.SRCJWTATTR.B32; 
64 1021 DESCRC1] = HDR2CHD2$T_BLOCKLEN]; 
ro 1088 ; SYSSFAO(CVTS, § DESCR, .BLOCKS2); 
644 1 END 


0004 00000 WBLOCKS2: 
WORD 


i Save R2 3 0964 
52 0000' cf H 000 ROVAB BLOCKSZ, R2 : 
: 8 ‘ 99 SUBL2 #8, SP : 
é 04 Bt ¢ A MOVZWL aAboR t 1009 
0D 3¢ AB 4 E14 005 BBC Od CURRENT vcB), + 1014 
00000800 BF 62 D1 0001 CMPL BLOCKS! + 1016 
4 1B OOO1A BLEGU 1$§ : 
01D4 «BF BF 000IC CHMU + 1018 
6E 5 00 09 9 1$: MOVL #5, DESCR + 1020 
04 AE 00006 CF 05 C1 00 ADDL3 #5. HDR2, DESCR+4 + 1021 
62 DD 0002A PUSHL BLOCKSZ > 1022 
04 AE 9F 0002C PUSHAB DESCR F 
7E D4 000¢F CLRL =(SP) : 
FC6O }36OCF.SsO9F: «000311 PUSHAB CVTS : 
000000006 9F 04 FB 00035 CALLS #4, @#SYSSFAO F 
04 0003¢ RET + 1023 


; Routine Size: 61 bytes, Routine Base: SCODES + 036F 
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WTATTR 1b-$6 -1984 233: AX-11 Bliss-32 V4.0-74 Page 1 
v04-000 eaeeen Toke 13izeiee | HaNaAce tae suFa YR 8354 ve 8) 
3 pal , } 5 } ROUTINE WBINDATE (INPUT, INPLEN, OUTPUT) : WNOVALUE = 
: eas 1 ; 1 !44 
; 6 1 8 1! 
; 651 1 1 ! FUNCTIONAL DESCRIPTION: 
: ° § ! , } This routine converts a 64 bit input date to an ANSI Julian date 
; 654 1 ¢ 1 ! CALLING SEQUENCE: 
; 655 1 7% WBINDATE (ARG1,ARG2,ARG3) 
5 O26 1034 1! 
; 65 1035 1 ! INPUT PARAMETERS: 
; $28 18 $ 1! ARG1 = address of 64 bit date 
3 6 1 1! ARG2 = length of date 
3 ree 18 ; : ARGS = address for Julian date to placed 
3 666 1040 1 ! IMPLICIT INPUTS: 
; 66 1041 1! none 
> 664 19s§ . | 
; 665 104 1 ! OUTPUT PARAMETERS: 
; 666 1044 1! ARGS - address which receives Julian date 
3; 667 1045 1! 
; 668 bg 1 ! IMPLICIT OUTPUTS: 
3; 669 1047 1! none 
; 670 1048 1! 
3; «671 1049 1 ! ROUTINE VALUE: 
pr} O76 1050 1! none 
3; 67 1051 1! 
: 674 1926 1 ! SIDE EFFECTS: 
; 675 1055 1! none 
; 676 1054 1! 
3; 677 1055 1 ! USER ERRORS: 
; 678 1928 1! SS$_BADATTRIB - attribute length neq 8 
: 679 1057 1! 
; 680 1058 1 !<- 
3; 681 1059 1 
5 $8 44 BEGIN 
3; 684 1066 OCAL 
3; 685 106 REGDATE : VECTOR Me BYTE), 
; 686 1064 REGDESC : VECTOR (2); 
; 687 1065 
; 688 1008 EXTERNAL ROUTINE 
; 689 106 SYSSASCTIM : ADDRESSING_MODE (ABSOLUTE), 
; 690 1908 CONVDATE_R2J; 
3; 691 1 
3; +69 1070 RESDESCEO) = 12; 
: 69 1071 REGDESCL1) = REGDATE; 
> 69% 1078 SYSSASCTIM(O, REGDESC, .INPUT, 0); 
: 695 107 CONVDATE_R2J(REGDATE, .OUTPUTS; 
; 696 1074 1 END; 


-EXTRN SYSSASCTIM 


0000 00000 WBINDATE: : 
«WORD Save nothing : 1025 


04 AE 


000000006 9F 
0000G CF 


; Routine Size: 41 bytes, Routine Base: 


YG 
ann: 
Vuk 
vee 
04 FB 
ea 
04 


SCODES + O3AC 


/ 


2 


fo Beoc19Re 02:55: 


$f Pata ALpecdesutartas Saeed 


ri = 
REGDATE. REGDESC+4 
= (SP) 


INPUT 

REGDESC 
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ROUTINE WANSINAME ( POINTER, LENGTH ) : COMMON_CALL NOVALUE = 
'e¢ 
' 


i FUNCTIONAL DESCRIPTION: 
Writes the 17 or less character filename containing ANSI ‘'a'’ characters 
ance, 50? peel The remainder of a VMS long filename is written into 


CALLING SEQUENCE: 
WANSINAME ( pointer, Length ) 


! INPUT PARAMETERS: 
ointer - points to file name String 
ength = length of the file name string 


IMPLICIT INPUTS: 
none 

OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 

file name is stuffed into the header 
ROUTINE VALUE: 

none 
SIDE EFFECTS: 

none 


USER ERRORS: 


BEGIN 
EXTERNAL REGISTER 

COMMON_REG; 
EXTERNAL ANSI_A_BAD : VECTOR C , BYTE J, 

ESC_CHAR : BYTE; 

LOCAL 

RETURN_LENGTH; 
! check Length of file name 
IF .LENGTH GTRU FILE_SPEC_MAX THEN ERR_EXIT ( SS$_BADFILENAME ); 
! Space fill the temporary storage for the FILE_ID 
CHSFILL(* *,FILE_SPEC_MAX,TEMP_ID); 
! translate into upper case and check for non-ANSI ‘a’ characters 


: VECTOR C FILE_SPEC_MAX,BYTE J, 


M12 
WTATTR 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Page 24 
v04-000 1erSeb= 138s $Siz3:8F | AMAA Oh Leg Fe Ye -05549 a 85 
s 755 11 § IF 0 NEQ MOVTUC ( ty ae »-POINTER, ESC_CHAR, ANSI_A_BAD, 
i, 5 11 REF (FILE SPEC MAX ), TEMP_IDS 
: f 1 : THEN ERR_EXIT ( SSS$_BADFILENARE ) 
: 738 i $ ! Move the filename into the headers and padd space left with spaces 
; 761 1138 CHSMOVE (HDISS_FILEID, TEMP_ID, HDRICHD1ST 4333 \ae 
3 fe 1123 CHSMOVE (HD4S$S"FILEID_EXT, TEMP_ IDCHD1$S_FILEID HBRGCHD4ST _FILEID_EXTI); 
3; 764 1141 ! Check the hongsh of the file name. If the file name will fit in 
; 765 1106 ! the HDR1 FILE ID then set the HDR4 Length to zero. Else set up 
: 706 114 ! the reall c. such that ed HDR1 FILE ID is filed with the name 
3; 7 1144 ! then the remainder of the name 6 put in the HDR« tabet with the 
; 768 1145 ! size that is in the NDke label only. 
; 769 112 ' PLEASE NOTE that the actual laclonentetios of this is different for 
; 770 114 ! volumes with a 4 in the VOL1 standard field as opposed to a 3 or less. 
s 771 1148 ! This is because the new standard allows us to write any kind 
; 77 1149 ' of data in , Japsonentat ton dependant fields. The old chet did not allow 
wae é 1150 !' us to do this. 
: 774 1151 
s 775 1126 BEGIN 
: 776 115 BIND 
s 77 1154 CVT2 = DESCRIPTOR (°!22ZW'); 
; 778 1155 LOCAL 
; 779 1156 DESCR : VECTOR (2), 
; 780 1157 MV REF oa, CK 
: 781 1158 MVL =. CURRENT VCBCVCB$L_MVLI: 
: 7 1159 IF +LENGTH LEGU HDI$S_FILEID™ 
; 78 1160 3 THEN 
: 784 1161 4 BEGIN 
; 785 116¢ 4 IF -MVLCMVLSB,STDVER] GTR 3 
; Ath 1108 ? HDR4CHD4$B_FILEID_EXT_SIZEJ = 0 
3; «6789 1166 4 CHSFILL(O,HD4$S_FILEID_EXT_V3,HDR4CHD4S$T_FILEID_EXT_V3)); 
; 790 1167 4 EN 
; 791 1168 3 ELSE 
; 79 1169 4 N 
; 7 1170 4 IF .MVLCMVLSB_STDVER] GTR 3 
3; 794 1171 4 HEN 
3; 795 Wie 4 HDR4CHD4$B_FILEID_EXT_SIZE] = .LENGTH - HD1$S_FILEID 
: 796 1173 4 LSE 
3; 797 1174 BEGIN 
3; 798 1175 LOCAL LEN; 
3; 799 1176 LEN = ENG! - HD1$S_FILEID; 
; 800 1177 ; DescRed = Dass FILETD_EXT V3; 
; 801 1178 DESCRL1) = HDRe Ab4$T FILEIO_E T_v3); 
; 80 1179 5 SFAO(CVT2,0,DESCR,.LEN); 
; 80 1180 4 END; 
3: 804 1181 4 END 
: 805 11 ¢ END; 
; 806 11 
3 i 1138 ! strip trailing blanks from the string 
; 809 1186 RETURN. penety = 
: 810 118 DECR 1 FROM LRN, - 1) 10,0 dO 
: 11 1188 IF TEMP NEQ 
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19-808-1382 98 46 4 MTAACP. SRCIJWTATIR.B32; _ $ 
THEN 
BEGIN 
RETURN_LENGTH = .] + 1; 
EXITLOOP 
tell the other routines the size of this name 
ANSI_NAME_SIZE = .RETURN_LENGTH; 
END; ! end of Routine 
57 SA 32 21 003D5 P.AAJ: ASCII \!2ZW\ ; 
00309 LkB 3 
00000004 9030¢ P.AAL: .LONG 4 : 
00000000" 003€6 .ADDRESS P.AAJ : 
CVvT2= P.AAI 
.EXTRN ANSI_A_BAD, ESC_CHAR 
wiknenetomcay Eee Te Fe 1075 
e ave . ° ; 
SE AB AE 9E 00002 MOVAB =88(SP). SP : 
0000004F  &F 08 AC D1 00006 CMPL _—s LENGTH, #79 + 1124 
04 1B 0000E BLEQU 1$ : 
0818 8F BF 00010 CHMU #2072 : 
6E ~ 00 2c o0018 1$: MOVCS #0, (SP), #32, #79, TEMP_ID + 1128 
04 BC 08 AC 2F 0001D MOVTUC LENGTH, @POINTER, ESC_CHAR, ANSI_A_BAD, = : 1132 
08 AE 004F  8F 00028 rich TEMP_ID : 3s ; 
02 1D 00020 BVS 2$ ; 
51 04 0002F CLRL sR ; 
51 D3 00031 2$: TSTL = R1 : 
04 13 00033 BEQL «=s«3$ ; 
0818 8F BF 00035 CHMU #207 : 1134 
50 00006 CF DO 00039 3s: MOVL. HDR1, RO : 1138 
08 AE 11 28 0003€ MOVC3) #17 TEMP. 1D, 4(RO) ; 
56 00006 cr p 044 OVL HD 4, R6 : 1139 
19 AE E 049 MOVC3 #62, TEMP_ID+17, 5(R6) F 
50 34 AB DO 0004F OVL 53(CuRnENT VCB), MVL : 1158 
11 08 AC 01 00053 CMPL ENGTH, #17 : 1159 
10 1A 90097 BGTRU 5$ : 
03 22 ad 91 9 CMPB 4(MVL), #3 : 1162 
05 1B 9050 BLEQU 4$ ; 
04 Ag 94 0005F CLRB = 4 (R6) + 1164 
33° «411 9 6 BRB 7$ ; 
43 Ab 84 4$: CLRW 7(R6) + 1166 
2 | 0 7 BRB $ : 1159 
08 aC @. 9 5$: SUBL3 #17, LENGTH, R1 : 117 
0 22 ad 91 99 CMPB) 0s «-34( AVL), #3 : 117 
06 1 BLEQU 6$ ; 
04 Ab 19 7 MOVB R1, 4(R6) : 1172 
1D 1 78 BRB 7$ : 
50 31 09 7A 68: MOVL 1, LEN > 1176 
6 2 D 7D MOVL #2. DESCR : 1177 
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184 bytes, Routine Base: S$CODE$S + 03E4 


; Routine Size: 


LENGTH = 4; 
BEGIN 


BUILTIN 
PROBE 
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: 824 1200 1 !4+++ 

; & ? : 4 1 {ROUTINE WLABELAST (ATTRIBUTE) : NOVALUE = 

i B55 1508 | ise 

; 828 1204 1! 

; 829 1205 1: rant DESCRIPTION: 

s §30 : be : This routine validates and stores the user's supplied AST control block 

; o36 1208 1 ' CALLING SEQUENCE: 

; 83 1209 1! WLABELAST(ARG1) 

> 834 1210 1: 

s 835 1211 1 i INPUT PARAMETERS: 

; $39 1 \¢ 1 i ARG) - address of attribute 

: 837 1213 1/3 

; 838 1214 1! IMPLICIT INPUTS: 

; So 1215 1! none 

: 840 1216 1! 

3 1217 1 =! OUTPUT PARAMETERS: 

: ¢ 1218 1! none 

; 1219 1! 

; 1220 1 ! IMPLICIT OUTPUTS: 

: 1221 1! none 

; \$s6 1! 

3 122 1 ! ROUTINE VALUE: 

3 1224 1! none 

3; «684 1225 1! 

H 1226 1 ! SIDE EFFECTS: 

; 851 1227 1! none | 

3 S26 1228 1! 

s &3 1229 1 ! USER ERRORS: 

> 854 1230 1! none 

: 855 1231 1! 

: 856 1S36 1 !-- 

; 857 ics 8 8 

; 858 1234 1! BEGIN 

; 859 1235 1! 

; 860 1236 1! EXTERNAL REGISTER 

; 861 1237 1! COMMON : 

s He 1238 1! 

: 86 1239 1! LOCAL 

3; 864 1240 1! AST : REF BBLOCK, ' user supplied AST control block 

: 865 1241 1! FUNCTION : BLOCK (1), ! 10 function code and modifiers 

* 1666 3% LENGTH, 

$ 124 1! MODE; 

3 1244 1! 

s 1245 1! 

; 1948 : 10_PACKET : REF BBLOCK; ! address of 10 request packet 

; 1248 1! FUNCTION = .10 PACKETCIRPSW_FUNC); ; 

: Hf +44 1! AST = ..ATTRIBOTE; ! parameter is address of attribute 

5 1250 1! DE = 

3 . i BR. 

2 12 § 1! 

: 1 2 

: 1254 1! 

$ 1255 1! 

; 1256 1! 


MAMMA) 


EXTERNAL 
| 
} 
| 
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; 881 1257 1! IF .AST NEQ 0 

; gee 1 38 1! AN 

>; 88 1259 1! ( NOT PROBER(MODE, .ENGTH, .AST) 

> 884 1260 1! R 

; 885 1261 1! -ASTCACBSB_TYPE] NEQ DYNSC_ACB 

; 886 1 $¢ 1! R 

; 887 1265 1! NOT .FUNCTIONCIOS$V_ACCESS)) 

; 888 1264 1! TH 

; 889 1265 1! ERR_EXIT(SS$_ILLLBLAST); 

: 890 1266 1! 

; 891 1267 1! END; 

; 89 1268 1 

3 Boz : +4 : won't return any AST other than the currently recorded one 

: 895 1271 1! ‘“KERNEL_CALL(COMPLETE_USRLBL, .AST, 0); 

; 896 iste 1! END; 

; 897 1273) 1 been 

; 898 1274 1 END 

; 899 1275 (1 

: 900 1276 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: SLOCKEDD1$ 9 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

: SCODES 1180 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

ee ea nl Meee a ee Symbols -------- Pages Processing 

$ File Total Loaded Percent Mapped Time 

; _$255$DUA28: CSYSLIBILIB.L32;1 18619 64 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:WTATTR/OBJ=OBJ$:WTATTR MSRC$:WIATTR/UPDATE=(ENHS:WTATTIR) 

3; Size: 1113 egge + 76 data bytes 

; Run Time: | 0:23.7 

; Elapsed Time: 9; 0.4 

3: Lines/CPU Min: 235 
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; Lexemes/CPU-Min: 17863 
: pomeey Used: 187 pages 
; Compila 


tion Complete 


ASE, AH-BT13A-SE : . : NT CORPORATION 
Winwi VAX/VMS V4.0 - AND PROPRIETARY 


